proc putshiploc
    put "Computer Ships:"
    for i : 1 .. 5
	put i, ") ", compships (i).startx, ",", compships (i).starty, " ", compships (i).endx, ",", compships (i).endy
    end for
    put "User Ships:"
    for i : 1 .. 5
	put i, ") ", userships (i).startx, ",", userships (i).starty, " ", userships (i).endx, ",", userships (i).endy
    end for
end putshiploc
